From 23efee2ce4312712365f914a5ba72e4c410e4137 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 10 Jun 1993 23:06:50 +0000 Subject: [PATCH] (append-to-buffer): Interactively, supply all 3 args. Allow nonexistent buffers. --- lisp/simple.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index 339afef7104..7d0b3001fef 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1194,7 +1194,8 @@ When calling from a program, give three arguments: BUFFER (or buffer name), START and END. START and END specify the portion of the current buffer to be copied." (interactive - (list (read-buffer "Append to buffer: " (other-buffer nil t) t))) + (list (read-buffer "Append to buffer: " (other-buffer nil t)) + (region-beginning) (region-end))) (let ((oldbuf (current-buffer))) (save-excursion (set-buffer (get-buffer-create buffer)) -- 2.30.2